home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / cdity / ModeProSrc.lha / Install-Dev / InstallModePro < prev    next >
Text File  |  1998-08-23  |  15KB  |  350 lines
  1. ; Install script for ModePro
  2.  
  3. (set path_wbstartup       ( expandpath "Sys:WBStartup") )
  4. (set path_commodities     ( expandpath "Sys:Tools/Commodities") )
  5. (set path_prefs           ( expandpath "Sys:Prefs") )
  6. (set path_modepro         path_commodities)
  7.  
  8. ( set ModePro "ModePro")
  9. ( set ModeProPrefs "ModeProPrefs" )
  10.  
  11. (set catalog_1   "ÃeÓtina")
  12. (set catalog_2   "dansk")
  13. (set catalog_3   "deutsch")
  14. (set catalog_4   "español")
  15. (set catalog_5   "français")
  16. (set catalog_6   "Hrvatski") 
  17. (set catalog_7   "íslenska")
  18. (set catalog_8   "italiano") 
  19. (set catalog_9   "norsk")
  20. (set catalog_10  "polski")
  21. (set catalog_11  "português-brasil")
  22. (set catalog_12  "russian")
  23. (set catalog_13  "srpski")
  24. (set catalog_14  "svenska") 
  25. (set catalog_15  "türkçe")
  26.  
  27. (set catalogs 15)
  28.  
  29. ;==============================================================================
  30. ;
  31. ; English
  32. ;
  33. ; english text by mrivers@gte.net
  34. ;
  35. ;------------------------------------------------------------------------------
  36.  
  37. ( set Yes "Yes")
  38. ( set No  "No")
  39.  
  40. (set startup_prompt       "When your computer boots up, how would you like ModePro started?")
  41. (set startup_choice0      "Never")
  42. (set startup_choice1      "Start from the User-Startup file")
  43. (set startup_choice2      "Start from the WBStartup Drawer")
  44. (set startup_help         "Selecting 'Never' will cause ModePro to not be started when the system boots.\n\nSelecting the 'Start from the User-Startup file' will add an entry in the the S:User-Startup file which will start ModePro.\n\nSelecting the 'Start from the WBStartup Drawer' put ModePro in the WBStartup drawer on Workbench.\n\nThe only difference in the latter two is that if you want to use ModePro to affect the Workbench screen, you must select 'Start from the User-Startup file'")
  45.  
  46. (set path_modepro_prompt  "Please select where you want to put ModePro.\n'%s' is the normal location")
  47. (set path_modepro_help    "This is the directory where the ModePro executable will be placed")
  48. (set path_mpprefs_prompt  "Please select where you want to put ModeProPrefs.\n'%s' is the normal location")
  49. (set path_mpprefs_help    "This is the directory where the ModeProPrefs executable will be placed")
  50.  
  51. ( set oldmodepro_prompt   "There appears to be another copy ModePro installed.\nDelete it?")
  52. ( set oldmodepro_help     "Another, unneeded copy of ModePro appears to be installed, deleting it is recommended")
  53. ( set oldmodepro_deleting "Deleting extra copy and .info file")
  54.  
  55. ( set tt_cxpopkey_prompt  "Enter the hotkey that pops up the preferences interface." )
  56. ( set tt_cxpri_prompt     "Enter the value of ModePro's commodity priority." )
  57. ( set tt_cxpopup_prompt   "Would you like ModePro to popup the interface each time it is started.")
  58. ( set tt_cx_help          "Please see the Commodities section of the Workbench manual for information." )
  59. ( set tt_wbpromote_prompt "Would you like to be able to promote the Workbench screen?\nI recommend that you select NO, promoting the WB can be dangerous!" )
  60. ( set tt_wbpromote_help   "Select NO\n.This option allows you to promote the WB screen, however, the OS may lockup depending on your set-up." )
  61.  
  62. (set installing_modepro       "Installing ModePro")
  63. (set installing_modeproprefs  "Installing ModeProPrefs")
  64. (set installing_catalogs      "Installing catalogs for the language %s")
  65.  
  66. (set usmodify_prompt      "The options you have chosen require the s:user-startup file to be modified." )
  67. (set usmodify_help        "If you don't do this part, ModePro may not work correctly" )
  68.  
  69. (set copycat_prompt       "ModePro has been translated into many languages.\nMany thanks go to the ATO for suppling most of the translations.")
  70. (set copycat_help         "You should only select those catalogs that you need.")
  71.  
  72.  
  73. (if (= @language "español")
  74.   (
  75.     ;==============================================================================
  76.     ; Spanish strings :)
  77.     ;-------------------------------------------------------------
  78.     
  79.     ( set Yes "Sí")
  80.     ( set No  "No")
  81.     
  82.     (set startup_prompt   "¿Quiere ejecutar automáticamente ModePro al arrancar su equipo?")
  83.     (set startup_choice0  "No, no quiero ejecutarlo")
  84.     (set startup_choice1  "Sí, desde el fichero user-startup")
  85.     (set startup_choice2  "Sí, desde el cajón WBStartup")
  86.     (set startup_help   (cat "\nEligiendo 'No, no quiero ejecutarlo' hará que ModePro no se ejecute durante el arranque del sistema.\n\n" "Eligiendo 'Sí, desde el fichero user-startup' se añadirá una entrada en el fichero s:user-startup que se encargará de ejecutar ModePro.\n\n" "Seleccionando 'Sí, desde el cajón WBStartup', ModePro será copiado en el cajón WBStartup de su disco de arranque.\n\n" "La única diferencia entre las dos últimas opciones es que si quiere que ModePro pueda afectar a la pantalla del Workbench, deberá seleccionar 'Sí, desde el fichero user-startup'"))
  87.     
  88.     (set path_modepro_prompt  "Por favor, elija dónde desea instalar ModePro\n('%s' es el lugar normal)")
  89.     (set path_modepro_help    "\nEste es el directorio donde el ejecutable ModePro será instalado.")
  90.     (set path_mpprefs_prompt  "Por favor, elija dónde desea instalar ModeProPrefs'\n('%s' es el lugar normal)")
  91.     (set path_mpprefs_help    "\nEste es el directorio donde el ejecutable ModeProPrefs será instalado.")
  92.     
  93.     (set oldmodepro_prompt   "Parece que otra copia de ModePro está instalada.\n¿Desea borrarla?" )
  94.     (set oldmodepro_help     "\nParece que una copia innecesaria de ModePro está instalada: se recomienda su borrado." )
  95.     (set oldmodepro_deleting "Borrando copia extra y fichero .info" )
  96.     
  97.     (set tt_cxpopkey_prompt    "Introduzca la combinación de teclas que invocará al programa de preferencias." )
  98.     (set tt_cxpri_prompt       "Introduzca el valor de la prioridad de la comodidad ModePro." )
  99.     (set tt_cxpopup_prompt     "¿Desea que ModePro muestre su interfaz cada vez que es puesto en marcha?")
  100.     (set tt_cx_help            "Por favor, consulte en el manual del Workbench ,la sección sobre 'Commodities'/'Comodidades' para más información." )
  101.     (set tt_wbpromote_prompt   "¿Desea ser capaz de promocionar la pantalla del Workbench?\nRecomiendo que elija la opción NO, pues promocionar dicha pantalla ¡puede ser peligroso!" )
  102.     (set tt_wbpromote_help     "Elija NO.\nEsta opción le permite promocionar la pantalla del Workbench... sin embargo, el SO podría bloquearse con algunas configuraciones." )
  103.     
  104.     (set installing_modepro       "Instalando ModePro")
  105.     (set installing_modeproprefs  "Instalando ModeProPrefs")
  106.     
  107.     (set usmodify_prompt  "Las opciones elegidas requieren que el fichero 's:user-startup' sea modificado." )
  108.     (set usmodify_help    "\nSi se salta este paso, ModePro podría no funcionar correctamente." )
  109.     
  110.     (set copycat_prompt   "ModePro ha sido traducido a varios idiomas.\nAgradezco a la ATO que me haya suministrado la mayoría de las traducciones.")
  111.     (set copycat_help     "\nDebe seleccionar sólo aquellos catálogos que necesite.")
  112.     
  113. ) )
  114. (if (= @language "Hrvatski")
  115.   (
  116.     ;=============================================================
  117.     ; Hrvatski
  118.     ;-------------------------------------------------------------
  119.     
  120.     ( set Yes "Yes")
  121.     ( set No  "No")
  122.     
  123.     ( set startup_prompt            "Kako ¾elite pokretati ModePro?\nPritisni 'Pomoæ' za vi¹e informacija.")
  124.     ( set startup_choice0           "No")
  125.     ( set startup_choice2           "Pokreni ModePro iz User-Startup")
  126.     ( set startup_choice1           "Stavi ModePro u WBStartup imenik")
  127.     
  128.     ( set path_modepro_prompt      "Preporuæen imenik za ModePro.  Promjeni ga po volji." ) 
  129.     ( set path_mpprefs_prompt      "ModeProPrefs dopu¹ta prepravljanje ModePro-ove opcije unaprijeðenja.  Gdje ¾elite staviti editor postavki?\nOpæenito bi trebao biti u %s imeniku.")
  130.     
  131.     ( set tt_cxpopkey_prompt   "Upi¹i vruæu tipku koja æe aktivirati editor postavki." )
  132.     ( set tt_cxpri_prompt      "Upi¹ite vrijednost ModePro-ove va¾nosti rada." )  
  133.     ( set tt_cxpopup_prompt    "Da li ¾elite da se ModePro pojavi svaki put kada se pokrene.")
  134.     
  135.     ( set oldmodepro_prompt   "Izgleda da postoji druga kopija ModePro instalirana, da ju obri¹em?")
  136.     
  137.     ( set installing_modepro          "Instaliram ModePro...")
  138.     ( set installing_modeproprefs     "Instaliram ModeProPrefs...")
  139.     
  140.     ( set copycat_prompt   "ModePro podr¾ava a lokalizaciju.  Koje jezike ¾elite instalirati, neki katalozi nisu gotovi.")
  141.     
  142.     ( set usmodify_prompt     "Opcija koju ste izabrali zahtjeva promjene u datoteci s:user-startup." )
  143.     
  144.     
  145. ) )
  146. (if (= @language "Italiano")
  147.   (
  148.     ;==============================================================================
  149.     ; Italiano strings :)
  150.     ;-------------------------------------------------------------
  151.     
  152.     ( set Yes "Si")
  153.     ( set No  "No")
  154.     
  155.     ( set startup_prompt               "Come vuoi che sia lanciato ModePro?\nPremi 'Aiuto' per altre informazioni")
  156.     ( set startup_choice1       "Avvia ModePro dalla Startup-Sequence")
  157.     ( set startup_choice2         "Metti ModePro nel cassetto WBStartup")
  158.     
  159.     ( set path_modepro_prompt     "Questo è il percorso suggerito per ModePro.\nSe vuoi puoi cambiarlo." ) 
  160.     ( set path_mpprefs_prompt      "ModeProPrefs ti permette di modificare i parametri di promozione di ModePro.\nDove vuoi mettere il programma di impostazioni?\nNormalmente dovrebbe essere il cassetto %s." )
  161.     
  162.     ( set tt_cxpopkey_prompt    "Immetti la hotkey che richiama il programma di impostazioni." )
  163.     ( set tt_cxpri_prompt       "Immetti il valore della priorità da assegnare alla commodity ModePro." )  
  164.     ( set tt_cxpopup_prompt     "Vuoi che ModePro visualizzi la sua interfaccia ogni volta che viene lanciato?")
  165.     
  166.     ( set oldmodepro_prompt   "Sembra che ci sia un'altra copia di ModePro installata. La cancello?")
  167.     
  168.     ( set installing_modepro        "Sto installando ModePro...")
  169.     ( set installing_modeproprefs        "Sto installando ModeProPrefs...")
  170.     
  171.     ( set copycat_prompt   "ModePro mette a disposizione una interfaccia localizzata.\nChe linguaggi vuoi installare?\nAlcuni cataloghi non sono completi.")
  172.     
  173.     ( set usmodify_prompt     "Le opzioni che hai scelto richiedono la modifica del file s:user-startup." )
  174.     
  175.     
  176. ) )
  177.  
  178. ;-------- BEGIN ----------
  179.  
  180. ; Fix these strings
  181. (set path_modepro_prompt  (path_modepro_prompt path_commodities))
  182. (set path_mpprefs_prompt  (path_mpprefs_prompt path_prefs))
  183.  
  184. (set startup_method (askchoice (prompt  startup_prompt)
  185.                                (help    startup_help)
  186.                                (choices startup_choice0 startup_choice1 startup_choice2)
  187.                                (default 2)
  188. )                   )
  189.  
  190.  
  191.  
  192. (if (= startup_method 2) 
  193.   (
  194.     ( set path_delmodepro path_commodities)
  195.     ( set path_modepro    path_wbstartup)
  196.   )
  197.   (
  198.     ( set path_delmodepro path_wbstartup)
  199.     ( set path_modepro (askdir (prompt  path_modepro_prompt)
  200.                                (help    path_modepro_help)
  201.                                (default path_commodities)
  202.     )                  )
  203.   )
  204. )
  205.  
  206. ( set path_mpprefs (askdir (prompt  path_mpprefs_prompt)
  207.                            (help    path_mpprefs_help)
  208.                            (default path_prefs)
  209. )                  )
  210.  
  211.  
  212.  
  213. ( set ModeProPrefsCommand (tackon ( path_mpprefs) 
  214.                                    ( "ModeProPrefs") 
  215.                           ) 
  216. )
  217.  
  218. ( set tt_cxpopkey ( askstring (prompt tt_cxpopkey_prompt)
  219.                               (help tt_cxhelp)
  220.                               (default "lamiga p")
  221.                
  222. )                 )
  223.  
  224. ( set tt_cxpri ("%ld" (asknumber (prompt tt_cxpri_prompt)
  225.                                  (help tt_cxhelp)
  226.                                  (default 5)
  227. )              )      ) 
  228.  
  229. ( set tt_cxpopup (askchoice (prompt tt_cxpopup_prompt) 
  230.                             (help tt_cxhelp)
  231.                             (default 0) 
  232.                             (choices No Yes) 
  233. )             )
  234.  
  235. ( set tt_wbpromote (askchoice (prompt tt_wbpromote_prompt) 
  236.                             (help tt_wbpromote_help)
  237.                             (default 0) 
  238.                             (choices No Yes) 
  239. )             )
  240.  
  241. ( set tt_wbpromotable (select tt_wbpromote "(WBPROMOTABLE)" "WBPROMOTABLE") )
  242.  
  243.  
  244. ;**** ASK WHICH CATALOGS TO COPY ****
  245. (askoptions  (prompt  copycat_prompt)
  246.              (help    copycat_help)
  247.              (choices catalog_1 catalog_2 catalog_3 catalog_4 catalog_5 catalog_6 catalog_7 catalog_8 catalog_9 catalog_10 catalog_11 catalog_12 catalog_13 catalog_14 catalog_15)
  248.              (default 0)
  249. )
  250.  
  251. ;**** COPY CATALOGS ****
  252. (set #optnumber 0)
  253. ( while ( < #optnumber 10 )
  254.   (set #flag (BITAND (shiftright #cat_languages #optnumber) 1) )
  255.   (if #flag
  256.     (
  257.       (set #cat_name  ( select #optnumber catalog_1 catalog_2 catalog_3 catalog_4 catalog_5 catalog_6 catalog_7 catalog_8 catalog_9 catalog_10 catalog_11 catalog_12 catalog_13 catalog_14 catalog_15) )
  258.       (set srcpath ("catalogs/" #cat_name ) )
  259.       (set dstpath ("locale:catalogs/" #cat_name ) )
  260.       (makedir dstpath)
  261.       (copyfiles  (prompt (installing_catalogs #cat_name)) (help (installing_catalogs #cat_name)) (source srcpath) (dest dstpath) (all) )
  262.     )
  263.   )
  264.   (set optnumber (+ optnumber 1) )
  265. )
  266.  
  267.  
  268. ;(copyfiles (prompt  copycat_prompt)
  269. ;           (help    copycat_help)
  270. ;           (source  "catalogs/")
  271. ;           (dest    "locale:catalogs/")
  272. ;           (infos)
  273. ;           (confirm)
  274. ;           (all)
  275. ;)
  276.  
  277. ;**** DELETE THE ANY EXTRA COPY OF MODEPRO ****
  278.  
  279. (set oldmodepro_file ( tackon (path_delmodepro) 
  280.                      ("ModePro")
  281. )          )
  282.  
  283. (if (exists oldmodepro_file)
  284.   (
  285.     (if (askchoice (prompt  oldmodepro_prompt ) 
  286.                    (help    oldmodepro_help) 
  287.                    (default 1) 
  288.                    (choices No Yes) 
  289.         )
  290.       (
  291.         (delete oldmodepro_file (prompt oldmodepro_deleting))
  292.         (delete (cat (oldmodepro_file) (".info") ) (prompt oldmodepro_deleting) )
  293.       )
  294.     ) 
  295.   )
  296. )
  297.  
  298. ;**** SET THE TOOLTYPES ****
  299.  
  300. (tooltype (dest ModePro)
  301.           (settooltype "CX_POPKEY"    tt_cxpopkey)
  302.           (settooltype "CX_POPUP"     (select tt_cxpopup No Yes) )
  303.           (settooltype "CX_PRIORITY"  tt_cxpri )
  304.           (settooltype "PREFSCOMMAND" ModeProPrefsCommand)
  305.           (settooltype tt_wbpromotable "")
  306. )
  307.  
  308.  
  309. ;**** COPY FILES ****
  310.     
  311. (copyfiles (prompt installing_modepro)
  312.            (help   installing_modepro)
  313.            (source ModePro)
  314.            (infos)
  315.            (dest path_modepro)
  316. )
  317.  
  318. (set @default-dest path_modepro)
  319.  
  320. (copyfiles (prompt installing_modeproprefs)
  321.            (help   installing_modeproprefs)
  322.            (source ModeProPrefs)
  323.            (infos)
  324.            (dest path_mpprefs)
  325. )
  326.  
  327.  
  328.  
  329.  
  330. ;**** PROMPT TO MODIFY THE U-S FILE ****
  331. (if (= startup_method 1)
  332.     ( 
  333.         (startup "ModePro"
  334.                  (prompt  usmodify_prompt )
  335.                  (help    usmodify_help )
  336.                  (command (cat "Run <>NIL: " (tackon path_modepro "ModePro")) )
  337.         )
  338.     )
  339.     (
  340.        (startup "ModePro"
  341.                  (prompt  usmodify_prompt )
  342.                  (help    usmodify_help )
  343.                  (command ";Don't run ModePro from User-Startup")
  344.   
  345.         )
  346.     )
  347. )
  348.  
  349.  
  350.